home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / On this Date 3.0.cpt / On this Date 3.0 / background_2747.txt < prev    next >
Text File  |  1992-02-12  |  3KB  |  128 lines
  1. -- background: 2747 from stack: in.0
  2. -- bmap block id: 3528
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: COVER
  6. ----- HyperTalk script -----
  7. on opencard
  8.   hide menubar
  9.   hide card field "Time"
  10.   hide message box
  11.   set userlevel to 5
  12. end opencard
  13.  
  14.  
  15.  
  16. -- part 2 (button)
  17. -- low flags: 00
  18. -- high flags: 2002
  19. -- rect: left=469 top=287 right=321 bottom=504
  20. -- title width / last selected line: 0
  21. -- icon id / first selected line: 13279 / 13279
  22. -- text alignment: 1
  23. -- font id: 0
  24. -- text size: 12
  25. -- style flags: 0
  26. -- line height: 16
  27. -- part name: Go Next
  28. ----- HyperTalk script -----
  29. on mouseup
  30.   repeat with n = 1 to 14
  31.     set icon of me to "Hme." & n
  32.     wait 3 ticks
  33.   end repeat
  34.   repeat 10
  35.     wait 2 ticks
  36.     set icon of me to "Hme.15"
  37.     wait 2 ticks
  38.     set icon of me to "Hme.16"
  39.     if the mouse = "Down" then
  40.       repeat 2
  41.         set icon of me to "Hme.15"
  42.         wait 3 ticks
  43.         set icon of me to "Hme.16"
  44.         wait 2 ticks
  45.       end repeat
  46.       exit repeat
  47.     end if
  48.   end repeat
  49.   set icon of me to "Hme.1"
  50.   visual effect Iris Close Slowly to Black
  51.   set userlevel to 5
  52.   play "This town.."
  53.   go home
  54. end mouseUp
  55.  
  56.  
  57.  
  58. -- part 3 (button)
  59. -- low flags: 00
  60. -- high flags: 2000
  61. -- rect: left=458 top=118 right=157 bottom=512
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 1020 / 1020
  64. -- text alignment: 1
  65. -- font id: 0
  66. -- text size: 12
  67. -- style flags: 0
  68. -- line height: 16
  69. -- part name: help
  70. ----- HyperTalk script -----
  71. on mouseUp
  72.   visual effect checkerboard slow
  73.   go to card id 4002
  74. end mouseUp
  75.  
  76.  
  77.  
  78. -- part 4 (button)
  79. -- low flags: 00
  80. -- high flags: 2000
  81. -- rect: left=458 top=177 right=216 bottom=512
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 14767 / 14767
  84. -- text alignment: 1
  85. -- font id: 0
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: about
  90. ----- HyperTalk script -----
  91. on mouseUp
  92.   visual effect barn door open slow
  93.   go next
  94. end mouseUp
  95.  
  96.  
  97.  
  98. -- part 5 (button)
  99. -- low flags: 00
  100. -- high flags: 2000
  101. -- rect: left=457 top=63 right=102 bottom=511
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 1009 / 1009
  104. -- text alignment: 1
  105. -- font id: 0
  106. -- text size: 12
  107. -- style flags: 0
  108. -- line height: 16
  109. -- part name: New Button
  110. ----- HyperTalk script -----
  111. on mouseDown
  112.   ask "Find what date?"
  113.   put 5 into lag
  114.   put "1,2,3,4" into seq
  115.   repeat with n = 1 to the number of items in seq
  116.     set cursor to "HGls." & item n of seq
  117.     wait 10
  118.   end repeat
  119.   go card id 3127
  120.   put 5 into lag
  121.   put "1,2,3,4" into seq
  122.   repeat with n = 1 to the number of items in seq
  123.     set cursor to "HGls." & item n of seq
  124.     wait 10
  125.   end repeat
  126.   find it in background field ID 14
  127. end mouseDown
  128.